﻿<!--#include file="Version.asp"-->
<% 
'**************************************************************
' Software Name: EasyesESYS
' Web: http://www.Easyes.com.cn
'**************************************************************
	'On Error Resume Next  '出现错误跳过继续执行
	Dim Conn,connstr,db
	Const DBFileName ="/ESYSDataBase/EasyesESYS.mdb"  '请修改数据库路径
	Set Conn = Server.CreateObject("ADODB.Connection")
	ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBFileName)
	Conn.Open connstr
If Err Then
	Err.Clear
    Set Conn = Nothing
    Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
    Response.End
End If

Sub CloseConn()
	conn.close
	set conn=nothing
End sub
%>